home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
utility
/
cutpak11.zip
/
TPHELP.BAT
< prev
next >
Wrap
DOS Batch File
|
1996-09-26
|
4KB
|
134 lines
@echo off
cls
echo.
echo Sample application of Timed Pause (TPAUSE.COM)
echo.
REM Example of "any key" with time-out (does not return an errorlevel):
REM (Using default timeout of 1 minute)
tpause Press any key to proceed...
echo.
REM Example of "multiple choice", using SET to remember errorlevel
REM Waiting only 10 seconds for a response
REM (must test keys in ASCENDING order):
:choose
echo.
tpause /t:10 Press a key:,abcdefghijklmnopqrstuvwxyz1234567890-=\'"+_!@#$%%^&*()[]{}?:./`~
echo.
set el=0
if errorlevel 1 set el=1
if errorlevel 2 set el=2
if errorlevel 3 set el=3
if errorlevel 4 set el=4
if errorlevel 5 set el=5
if errorlevel 6 set el=6
if errorlevel 7 set el=7
if errorlevel 8 set el=8
if errorlevel 9 set el=9
if errorlevel 10 set el=10
if errorlevel 11 set el=11
if errorlevel 12 set el=12
if errorlevel 13 set el=13
if errorlevel 14 set el=14
if errorlevel 15 set el=15
if errorlevel 16 set el=16
if errorlevel 17 set el=17
if errorlevel 18 set el=18
if errorlevel 19 set el=19
if errorlevel 20 set el=20
if errorlevel 21 set el=21
if errorlevel 22 set el=22
if errorlevel 23 set el=23
if errorlevel 24 set el=24
if errorlevel 25 set el=25
if errorlevel 26 set el=26
if errorlevel 27 set el=27
if errorlevel 28 set el=28
if errorlevel 29 set el=29
if errorlevel 30 set el=30
if errorlevel 31 set el=31
if errorlevel 32 set el=32
if errorlevel 33 set el=33
if errorlevel 34 set el=34
if errorlevel 35 set el=35
if errorlevel 36 set el=36
if errorlevel 37 set el=37
if errorlevel 38 set el=38
if errorlevel 39 set el=39
if errorlevel 40 set el=40
if errorlevel 41 set el=41
if errorlevel 42 set el=42
if errorlevel 43 set el=43
if errorlevel 44 set el=44
if errorlevel 45 set el=45
if errorlevel 46 set el=46
if errorlevel 47 set el=47
if errorlevel 48 set el=48
if errorlevel 49 set el=49
if errorlevel 50 set el=50
if errorlevel 51 set el=51
if errorlevel 52 set el=52
if errorlevel 53 set el=53
if errorlevel 54 set el=54
if errorlevel 55 set el=55
if errorlevel 56 set el=56
if errorlevel 57 set el=57
if errorlevel 58 set el=58
if errorlevel 59 set el=59
if errorlevel 60 set el=60
if errorlevel 61 set el=61
if errorlevel 62 set el=62
if errorlevel 63 set el=63
if %el%.==0. goto none
echo You pressed key number %el% in the demonstration series.
echo.
tpause Try another? (Y/N),yn
if errorlevel 2 goto mult
goto choose
:none
echo No key was pressed within 10 seconds.
REM Example of "multiple choice" without using SET
REM (must check for absence of higher errorlevel at all but highest level):
:mult
echo.
echo You may choose one of the following:
echo.
echo N)ame of author D)ate written L)ength of time-out
echo C)ommand syntax M)aximum # of keys S)elf-explanation
echo.
tpause "Enter your selection (N, D, L, C, M, or S):",ndlcms
echo.
if errorlevel 6 tpause /?
if errorlevel 5 if not errorlevel 6 echo Up to 68 keys may be listed, returning errorlevels 1 through 68.
if errorlevel 5 if not errorlevel 6 echo All printable keyboard characters are acceptable, with the exception of the
if errorlevel 5 if not errorlevel 6 echo comma, semicolon, pipe (vertical bar), "greater than" and "less than".
if errorlevel 5 if not errorlevel 6 echo Uppercase A through Z are considered identical to lowercase a through z.
if errorlevel 5 if not errorlevel 6 echo If you use a percent sign, double it (DOS eats the first %%; it doesn't count).
if errorlevel 4 if not errorlevel 5 echo TPAUSE "prompt"[,keylist] (Quotes may be omitted when prompt has no commas.)
if errorlevel 3 if not errorlevel 4 echo Default timeout = 1 minute; user-specifiable 1 second to 23 hr 59 min 59 sec.
if errorlevel 2 if not errorlevel 3 echo TPAUSE.COM was originally developed on March 19, 1992 with a fixed 60-second
if errorlevel 2 if not errorlevel 3 echo timeout, and was updated September 24, 1996 for user-specified time delay.
if errorlevel 1 if not errorlevel 2 echo Developed by Clay Ruth (Clay.Ruth@WorldNet.ATT.net)
if not errorlevel 1 echo Timed out; no information requested.
echo.
REM Example of "multiple choice" using GOTO
REM (must test in DESCENDING order):
tpause /t:20 Continue? (Y/N),yn
echo.
if errorlevel 2 goto quit
if errorlevel 1 goto mult
echo Quitting by default.
goto end
:quit
echo Quitting at user request.
:end
echo.